home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Programming / Programming Tools / Basic / fast array rite
Encoding:
Text File  |  1987-06-17  |  9.8 KB  |  237 lines  |  [TEXT/ttxt]
  1. 00001 REM __________________ ZBasic™ Array Writing Demo ______________________
  2. 00002 REM Configuration: Convert to Uppercase, Spaces Required
  3. 00003 REM                Locate X,Y (Vertical, Horizontal)
  4. 00004 REM Default Variable: INTEGER
  5. 00005 REM                   Double Precision (#) = 12
  6. 00006 REM                   Single     "     (!) =  6
  7. 00007 REM                   Array Base           =  0
  8. 00008 REM                   Rounding Number      = 49
  9. 00009 REM                   Maximum Files Open   =  2
  10. 00010 REM _______________________________________________________________
  11. 00011 REM A ZBASIC program demonstrating the speed differences between
  12. 00012 REM writing a text file and writing a block of memory to disk.
  13. 00013 REM
  14. 00014 REM
  15. 00015 REM
  16. 00016 REM
  17. 00017 REM Created with ZBASIC compiler by Zedcor, Inc.
  18. 00018 REM Portions of the resulting object code
  19. 00019 REM are copyrighted (c) by Zedcor, Inc.
  20. 00020 REM
  21. 00021 DEF MOUSE 1
  22. 00022 COORDINATE WINDOW
  23. 00023 IF PEEK(&28E) AND 128 THEN NewROMS = 0 ELSE NewROMS = TRUE
  24. 00024 WINDOW 1,"",(1,1)-(2,2),1: REM This will definitly close the default
  25. 00025 WINDOW CLOSE 1: REM            window every time.
  26. 00026 DIM Large_Array(5001)
  27. 00027 GOSUB "Set Up Variables"
  28. 00028 Wndo_Numbr = 4: Wndo_Type = 2: XL = 290: YT = 35: XR = 500: YB = 95
  29. 00029 Wndo$ = "": GOSUB "Open a Window": LOCATE 0,0
  30. 00030 PRINT "A Program that answers the"
  31. 00031 PRINT "       proverbial question…": CALL MOVETO (25,50)
  32. 00032 TEXT 0,12
  33. 00033 PRINT "Is there a faster way?";: TEXT 4,9,0
  34. 00034 REM ///////////////////////////////.\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  35. 00035 "Set up a Menu"
  36. 00036 MENU 1,0,1,"Array Writing Demo"
  37. 00037 MENU 1,1,1,"/AArray Create
  38. 00038 MENU 1,2,Array_Set,"/RRead-Write"
  39. 00039 MENU 1,3,Array_Set,"/BBSave-Bload"
  40. 00040 MENU 1,5,1,"/QQuit"
  41. 00041 REM ///////////////////////////////.\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  42. 00042 "Turn On Event Trapping"
  43. 00043 ON BREAK  GOSUB "Break Out"
  44. 00044 ON MENU   GOSUB "Menu Event"
  45. 00045 ON DIALOG GOSUB "Dialog Event"
  46. 00046 BREAK ON:          REM This can be removed after program runs properly.
  47. 00047 MENU ON: DIALOG ON
  48. 00048 REM _______________________________________________________________
  49. 00049 "Loop"
  50. 00050 DO: D = DIALOG(0)
  51. 00051 IF D > 0 THEN GOSUB "D Event"
  52. 00052 UNTIL D = 0
  53. 00053 GOTO "Loop"
  54. 00054 REM ///////////////////////////////.\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  55. 00055 "Break Out"
  56. 00056 STOP
  57. 00057 REM ///////////////////////////////.\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  58. 00058 "Menu Event"
  59. 00059 Menu_Number = MENU(0)
  60. 00060 Menu_Item = MENU(1)
  61. 00061 MENU
  62. 00062 DIALOG OFF: REM These '…OFF' statements should not be used at this 
  63. 00063 MENU OFF:   REM location since they ONLY turn off the traps for the lines
  64. 00064 BREAK OFF:  REM physically between the 'OFF' and the 'ON'.
  65. 00065 ON Menu_Number GOSUB "Menu 1"
  66. 00066 DIALOG ON: MENU ON: BREAK ON
  67. 00067 RETURN
  68. 00068 REM ///////////////////////////////.\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  69. 00069 "Dialog Event"
  70. 00070 D = DIALOG(0)
  71. 00071 "D Event"
  72. 00072 DIALOG OFF
  73. 00073 MENU OFF
  74. 00074 BREAK OFF
  75. 00075 ON D GOSUB "Button Event", "DUMMY Item", "Inactive Window"
  76. 00076 DIALOG ON: MENU ON: BREAK ON
  77. 00077 RETURN
  78. 00078 REM ///////////////////////////////.\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  79. 00079 "Menu 1"
  80. 00080 BUTTON CLOSE 1: BUTTON CLOSE 2: BUTTON CLOSE 3
  81. 00081 ON Menu_Item GOSUB "Reset Array", "For/Next", "Bsave/BLoad", "DUMMY Item", "Quit"
  82. 00082 RETURN
  83. 00083 REM _______________________________________________________________
  84. 00084 "Reset Array"
  85. 00085 BREAK OFF:  REM Put a 'REM' in front of any of these 3 '…OFF' statement
  86. 00086 DIALOG OFF: REM to see the difference it makes to do this computation !
  87. 00087 MENU OFF 
  88. 00088 IF Wndo1_Open = 1 THEN WINDOW 1
  89. 00089 Wndo_Numbr = 1: Wndo_Type = 3: XL = 5: YT = 35: XR = 250: YB = 95
  90. 00090 Wndo$ = "Calculating 5000 element Integer Array…"
  91. 00091 IF Wndo1_Open = 0 THEN GOSUB  "Open a Window": Wndo1_Open = 1
  92. 00092 CURSOR 4: RANDOM: Seed = TIMER
  93. 00093 FOR X = 1 TO 5000
  94. 00094 Large_Array(X) = RND(Seed)
  95. 00095 NEXT
  96. 00096 CURSOR 0
  97. 00097 LONG IF Array_Set = 0
  98. 00098 Array_Set = 1
  99. 00099 MENU 1,1,1,"Array ReSet"
  100. 00100 MENU 1,2,Array_Set
  101. 00101 MENU 1,3,Array_Set
  102. 00102 END IF
  103. 00103 CLS
  104. 00104 PRINT "Values created …"
  105. 00105 GOSUB "Print some of the Array"
  106. 00106 RETURN
  107. 00107 REM _______________________________________________________________
  108. 00108 "For/Next"
  109. 00109 Operation = 1: IF Wndo2_Open = 1 THEN WINDOW 2
  110. 00110 Wndo_Numbr = 2: Wndo_Type = 3: XL = 5: YT = 125: XR = 250: YB = 335
  111. 00111 Wndo$ = "Results for a FOR/NEXT Read/Write"
  112. 00112 IF Wndo2_Open = 0 THEN GOSUB  "Open a Window": Wndo2_Open = 1
  113. 00113 BUTTON 1, Array_Set, "Write", (10,20)-(80,40), 1
  114. 00114 BUTTON 2, Array_Written, "Read", (100,20)-(160,40), 1 
  115. 00115 BUTTON 3, 1, "Cancel", (180,20)-(235,40), 1
  116. 00116 RETURN
  117. 00117 REM _______________________________________________________________
  118. 00118 "Bsave/BLoad"
  119. 00119 Operation = 2: IF Wndo3_Open = 1 THEN WINDOW 3
  120. 00120 Wndo_Numbr = 3: Wndo_Type = 3: XL = 255: YT = 125: XR = 500: YB = 335
  121. 00121 Wndo$ = "Results for a BSave/BLoad"
  122. 00122 IF Wndo3_Open = 0 THEN GOSUB  "Open a Window": Wndo3_Open = 1
  123. 00123 BUTTON 1, Array_Set, "BSave", (10,20)-(80,40), 1
  124. 00124 BUTTON 2, Array_BSaved, "BLoad", (100,20)-(150,40), 1
  125. 00125 BUTTON 3, 1, "Cancel", (180,20)-(235,40), 1
  126. 00126 RETURN
  127. 00127 REM _______________________________________________________________
  128. 00128 "DUMMY Item": REM Program never really gets here.
  129. 00129 REM _______________________________________________________________
  130. 00130 "Quit"
  131. 00131 END
  132. 00132 REM ///////////////////////////////.\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  133. 00133 "Slow Read/Write"
  134. 00134 ON Button_Clicked GOSUB "Write For/Next", "Read For/Next", "Continue"
  135. 00135 RETURN
  136. 00136 REM _______________________________________________________________
  137. 00137 "Quik Save/Load"
  138. 00138 ON Button_Clicked GOSUB "BSave", "BLoad", "Continue"
  139. 00139 RETURN
  140. 00140 REM _______________________________________________________________
  141. 00141 "Continue"
  142. 00142 RETURN
  143. 00143 REM _______________________________________________________________
  144. 00144 "Write For/Next"
  145. 00145 Start& = TIMER: CURSOR 4
  146. 00146 OPEN "O", #1, "A For Next File"
  147. 00147 FOR X = 1 TO 5000
  148. 00148 WRITE #1, Large_Array(X)
  149. 00149 NEXT
  150. 00150 CLOSE #1
  151. 00151 End_Time& = TIMER: CURSOR 0: Array_Written  = 1
  152. 00152 LOCATE 0,5: PRINT "Values ";: TEXT ,,1
  153. 00153 PRINT "Written";: TEXT ,,0
  154. 00154 PRINT " with a FOR/NEXT loop…"
  155. 00155 GOSUB "Print some of the Array"
  156. 00156 PRINT: PRINT "Total Time ="End_Time& - Start&
  157. 00157 RETURN
  158. 00158 REM _______________________________________________________________
  159. 00159 "Read For/Next"
  160. 00160 Start& = TIMER: CURSOR 4
  161. 00161 OPEN "I", #1, "A For Next File"
  162. 00162 FOR X = 1 TO 5000
  163. 00163 READ #1, Large_Array(X)
  164. 00164 NEXT
  165. 00165 CLOSE #1
  166. 00166 End_Time& = TIMER: CURSOR 0
  167. 00167 LOCATE 0,12: PRINT "Values ";: TEXT ,,1
  168. 00168 PRINT "Read";: TEXT ,,0
  169. 00169 PRINT " with a FOR/NEXT loop…"
  170. 00170 GOSUB "Print some of the Array"
  171. 00171 PRINT: PRINT "Total Time ="End_Time& - Start&
  172. 00172 RETURN
  173. 00173 REM _______________________________________________________________
  174. 00174 "BSave"
  175. 00175 Start& = TIMER: CURSOR 4
  176. 00176 OPEN "O", #2, "A BSaved File"
  177. 00177 WRITE FILE #2, Source_Address&, Bytes&
  178. 00178 CLOSE #2
  179. 00179 End_Time& = TIMER: CURSOR 0: Array_BSaved  = 1: BUTTON 2,1
  180. 00180 LOCATE 0,5: PRINT "Values ";: TEXT ,,1
  181. 00181 PRINT "BSAVEd";: TEXT ,,0: PRINT " …"
  182. 00182 GOSUB "Print some of the Array"
  183. 00183 PRINT: PRINT "Total Time ="End_Time& - Start&
  184. 00184 Array_BSaved = 1
  185. 00185 RETURN
  186. 00186 REM _______________________________________________________________
  187. 00187 "BLoad"
  188. 00188 Start& = TIMER: CURSOR 4
  189. 00189 OPEN "I", #2, "A BSaved File"
  190. 00190 READ FILE #2, Source_Address&, Bytes&
  191. 00191 CLOSE #2
  192. 00192 End_Time& = TIMER: CURSOR 0
  193. 00193 LOCATE 0,12: PRINT "Values ";: TEXT ,,1
  194. 00194 PRINT "BLOADed";: TEXT ,,0: PRINT " …"
  195. 00195 GOSUB "Print some of the Array"
  196. 00196 PRINT: PRINT "Total Time ="End_Time& - Start&
  197. 00197 RETURN
  198. 00198 REM ///////////////////////////////.\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  199. 00199 "Open a Window"
  200. 00200 WINDOW Wndo_Numbr,"",(XL,YT)-(XR,YB),Wndo_Type
  201. 00201 TEXT ,,,0: IF Operation > 0 THEN TEXT 0,12,,
  202. 00202 LOCATE 0,0: PRINT Wndo$: TEXT 4,9,,
  203. 00203 RETURN
  204. 00204 REM ///////////////////////////////.\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  205. 00205 "Print some of the Array"
  206. 00206 PRINT "Elements   "USING Print_Using$;1;USING Print_Using$;10;USING Print_Using$;1000
  207. 00207 PRINT "    values "USING Print_Using$;Large_Array( 1 );USING Print_Using$;Large_Array( 10 );USING Print_Using$;Large_Array( 1000 )
  208. 00208 PRINT "Elements   "USING Print_Using$;0;USING Print_Using$;2500;USING Print_Using$;5000"
  209. 00209 PRINT "    values "USING Print_Using$;Large_Array( 0 );USING Print_Using$;Large_Array( 2500 );USING Print_Using$;Large_Array( 5000 );
  210. 00210 RETURN
  211. 00211 REM ///////////////////////////////.\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  212. 00212 "DIALOG Events"
  213. 00213 REM _______________________________________________________________
  214. 00214 "Button Event"
  215. 00215 Button_Clicked = DIALOG(1)
  216. 00216 ON Operation GOSUB "Slow Read/Write", "Quik Save/Load"
  217. 00217 BUTTON CLOSE 1: BUTTON CLOSE 2: BUTTON CLOSE 3
  218. 00218 Operation = 0
  219. 00219 RETURN
  220. 00220 REM _______________________________________________________________
  221. 00221 "Inactive Window"
  222. 00222 Wndo_Selected = DIALOG(3) - 1
  223. 00223 BUTTON CLOSE 1: BUTTON CLOSE 2: BUTTON CLOSE 3
  224. 00224 ON Wndo_Selected GOSUB "For/Next","Bsave/BLoad"
  225. 00225 RETURN
  226. 00226 REM ///////////////////////////////.\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  227. 00227 "Set Up Variables"
  228. 00228 Source_Address& = VARPTR( Large_Array(0)): Bytes& = 10002
  229. 00229 First_Num = 0: D = 0: X = 0: Array_Set = 0: Window_Open = 0
  230. 00230 Array_Written = 0: Array_BSaved = 0: Operation = 0
  231. 00231 Menu_Number = 0: Menu_Item = 0: D = 0: Button_Clicked = 0
  232. 00232 Wndo_Numbr = 0: Wndo_Type = 0: XL = 0: YT = 0: XR = 0: YB = 0
  233. 00233 Wndo1_Open = 0: Wndo2_Open = 0: Wndo3_Open = 0
  234. 00234 End_Time& = 0: Start& = 0: Seed = 0
  235. 00235 Print_Using$ = "########": Wndo$ = ""
  236. 00236 RETURN